home *** CD-ROM | disk | FTP | other *** search
/ The Dream Of Mars / The Dream of Mars.iso / Labo.dxr / 00157.ls < prev    next >
Encoding:
Text File  |  1997-01-07  |  732 b   |  28 lines
  1. on startMovie
  2.   global myCD
  3.   cursor([185])
  4.   set myCD to CheckDrive("mars.tst")
  5.   add(the searchPaths, myCD)
  6.   add(the searchPaths, myCD & "\vidata")
  7.   add(the searchPaths, myCD & "\sounds")
  8.   set the searchCurrentFolder to 0
  9.   if the colorDepth = 8 then
  10.     alert("Merci de passer en 32000 couleurs ou plus avant de lancer R├¬ves de Mars.")
  11.     halt()
  12.   end if
  13. end
  14.  
  15. on CheckDrive weirdfil
  16.   repeat with I = 66 to 90
  17.     set drive to numToChar(I)
  18.     set myThisPath to string(drive & ":\" & weirdfil)
  19.     set myFile to fileio(mnew, "read", myThisPath)
  20.     if objectp(myFile) then
  21.       myFile(mdispose)
  22.       return drive & ":"
  23.       exit
  24.     end if
  25.   end repeat
  26.   alert("Please check that Reves de MArs is on your CD drive.")
  27. end
  28.